PC-SIG Library 8

home *** CD-ROM | disk | FTP | other *** search

/ PC-SIG Library 8 / PC-SIG Library CD-ROM (8th Edition) (1990-04).iso / 001_100 / disk0081 / modem.asm < prev next >

Wrap

Assembly Source File | 1982-08-30 | 55.2 KB | 2,239 lines

TITLE 'MODEM FOR THE IBM PERSONAL COMPUTER: PC/DOS' PAGE 63,132 ; ;* M O D E M - - FOR THE IBM PERSONAL COMPUTER * ;* * ;* This program was developed from * ;* MODEM.ASM (Version 3.0) * ;* for CP/M to CP/M file transfers * ;* BY Ward Christensen (CPM-UG Disk # 25) * ;* Refer to the last section of this source file for * ;* a complete modification history and credits to * ;* those who contributed to this version. * ;* * ;* N O T I C E * ;* This program is supplied for your personal and * ;* non-commercial use only. No commercial use permitted. * ;* Users of this program are granted limited rights to * ;* reproduce and distribute this program, provided * ;* the following conditions are met: * ;* * ;* 1) This program must be supplied in original form, * ;* with no modifications. * ;* 2) Notices contained in this source file, and those * ;* produced by the executable program, must not be * ;* altered or removed. * ;* 3) This program may not be sold. Providing this * ;* program for consideration of any sort, including * ;* copying or distribution fees, is prohibited. * ;* 4) This program may not be used on timesharing * ;* systems where fees are charged for access, * ;* or or supplied as part of any other form of * ;* rental access computing, without the express * ;* written permission of the author. * ;* * ;* PLEASE SEND PROBLEM REPORTS AND SUGGESTIONS * ;* TO: John Chapman * ;* 844 S. Madison St. * ;* Hinsdale, Illinois 60521 * ;* Compuserve = 70205,1217 * SUBTTL MACRO DEFINITIONS page ; DOSCALL MACRO FUNCTION,AREA ;INVOKE DOS SERVICE IFNB <AREA> MOV DX,OFFSET AREA ;SET PARAMETER OFFSET ENDIF MOV AH,FUNCTION ;DOS FUNCTION CODE INT 21H ;INVOKE DOS SERVICE ENDM ; PRCHAR MACRO CHAR ;PRINT A CHARACTER IFNB <CHAR> MOV DL,CHAR ;CHAR TO DL REG ENDIF DOSCALL DSPLO ; DOS PRINT CHARACTER FUNCTION ENDM ; SCROLL MACRO MOV AX,600H ;AH=6 SCROLL, AL=0 ENTIRE WINDOW INT 10H ;INVOKE BIOS SCROLL ROUTINE ENDM ; LOCATE MACRO MOV AH,2 ;BIOS FUNCTION SELECT MOV BH,0 ;USE SCREEN 0 INT 10H ;INVOKE BIOS CURSOR POSITIONING ENDM ; ; SUBTTL EQUATES page ; CANFLG EQU 1 ;NO CANCEL ABILITY ; MODSNDB EQU 020H ;BIT TO TEST FOR SEND MODSNDR EQU 020H ;VALUE WHEN READY MODRCVB EQU 001H ;BIT TO TEST FOR RECEIVE MODRCVR EQU 001H ;VALUE WHEN READY ; BAUDRAT EQU 0C2H ;BAUD RATE OUTPUT DTREADY EQU 01H ;MCR FLAG FOR DTR UP ; ;ORIGMOD EQU 1DH ;8 DATA, NO PARITY, ORIG ;ANSWMOD EQU 1EH ;8 DATA, NO PARITY, ANSW ; INITREQ EQU 0 ;MODEM INIT. REQ'D? INITC1 EQU 64H ;FIRST INIT CHAR TO CTL PORT INITC2 EQU 64H ;2ND INIT CHAR TO CTL PORT ; FASTCLK EQU 1 ;PUT 1 HERE FOR 4 MHZ CLOCK ERRLIM EQU 10 ;MAX ALLOWABLE ERRORS EXITCHR EQU 'W'-40H ;CTL-W EXIT FROM T OR C DISCCHR EQU 'D'-40H ;CTL-D DISCONNECTS MODEM T/C CTLCCHR EQU 'I'-40H ;CTL-C REPLACEMENT (temporary) CTLCHAR EQU 03H ;CTL-C ACTUAL (temporary) ; ;DEFINE ASCII CHARACTERS USED ; SOH EQU 01H ;START OF HEADER EOT EQU 04H ;END OF TRANSMISSION ACK EQU 06H ;ACKNOWLEDGE LF EQU 0AH ;LINEFEED CR EQU 0DH ;CARRIAGE RETURN NAK EQU 15H ;NEG ACKNOWLEDGE CAN EQU 18H ;CANCEL FF EQU 0CH ;FORM FEED (clear screen) PAGE ; ; PC DOS EQUATES (VERSION 1.1) ; REIPL EQU 0 ;PROGRAM TERMINATE RDCON EQU 1 ;KEYBOARD INPUT WRCON EQU 2 ;DISPLAY OUTPUT PRTCHR EQU 5 ;PRINTER OUTPUT, CHAR IN DL DCON EQU 6 ;DIRECT CONSOLE I/O PRINT EQU 9 ;PRINT STRING CONST EQU 11 ;CONSOLE STAT OPEN EQU 15 ;0FFH=NOT FOUND CLOSE EQU 16 ; " " SRCHF EQU 17 ; " " SRCHN EQU 18 ; " " ERASE EQU 19 ;NO RET CODE READ EQU 20 ;0=OK, 1=EOF WRITE EQU 21 ;0=OK, 1=ERR, 2=?, 0FFH=NO DIR SPC MAKE EQU 22 ;0FFH=BAD REN EQU 23 ;0FFH=BAD STDMA EQU 26 ;SET DMA FATADDR EQU 27 ;FILE ALLOCATION TABLE ADDRESS ; ; ; d o s f u n c t i o n s ; ; DSPLO EQU 2 PSTRING EQU 9 DRESET EQU 0DH SELDSK EQU 0EH SRCHF EQU 11H SRCHN EQU 12H CDISK EQU 19H SETDTA EQU 1AH FATADDR EQU 1BH SETINTV EQU 25H GETDATE EQU 2AH GETTIME EQU 2CH ; ; ; ; PC DOS FCB EQUATES (VERSION 1.1) ; INT20H EQU DS:00H FCB EQU DS:5CH FCBNAME EQU DS:5DH FCBEXT EQU DS:65H FCBSZL EQU DS:6CH FCBSZH EQU DS:6DH FCBCR EQU DS:7CH FCBRR EQU DS:7DH FCB2 EQU DS:6CH SUBTTL 'PREFIX, CONSTANTS AND WORKAREA' PAGE MODEM SEGMENT PUBLIC 'CODE' ASSUME CS:MODEM,DS:MODEM,ES:MODEM ; ; ---------------- ; START OF ACTUAL PROGRAM AREA ; ---------------- ORG 100H MAIN PROC FAR JMP STARTS OPTION DB 0 ;PRIMARY OPTION ; ;DATAFLG IS USED BY THE "V" SUBCOMMAND - ;IT IS 0 WHEN A HEADER OR CKSUM IS BEING ;SENT/RCD, AND 1 IF "VIEWABLE" DATA (THE ;SECTOR ITSELF) IS ; DATAFLG DB 0 ;AT HEADER, FIRST ; ; ;SUB-OPTION TABLE. IF AN OPTION IS IN EFFECT, ; THE CHARACTER IS SET TO BINARY 0 ; OPTBL EQU OFFSET $ ANSWFLG DB 'A' ;ANSWER MODE DISCFLG DB 'D' ;DISCONNECT WHEN DONE ECHOFLG DB 'E' ;TO ECHO AFTER XFER DUMYFLG DB 'U' ;DEFAULT UART FLAG INITFLG DB 'I' ;TO INIT THE UART / MODEM ORIGFLG DB 'O' ;ORIGINATE MODE QFLG DB 'Q' ;QUIET TRANSFER (NO MSGS) RSEEFLG DB 'R' ;SEE WHAT'S RECEIVED SSEEFLG DB 'S' ;SEE WHAT'S SENT TERMFLG DB 'T' ;TO TERM AFTER XFER VSEEFLG DB 'V' ;VIEW MESSAGES (NO HDR, ETC) urt2flg db '2' ;second UART urt3flg db '3' ;third UART OPTBE EQU OFFSET $ ;END OF OPTIONS ; TABLESIZE EQU OPTBE-OPTBL ; ;------------------------------------------------------------------ ; ** added for COM1/2/3 Select support for PC 8/82/jac ;------------------------------------------------------------------ ; ; OFFDATP EQU 0 ;DATA PORT OFFSET OFFCTLP EQU 5 ;MODEM STATUS REGISTER OFFSET OFFCTL2 EQU 4 ;MODEM CONTROL REGISTER OFFSET OFFCTL3 EQU 3 ;LINE CONTROL REGISTER OFFSET ; ; BASE1U dw 03f8h ;base address uart 1 (COM1) base2u dw 02F8h ;base address uart 2 (COM2) base3u dw 01F8h ;base address uart 3 (COM3) ??NOT TESTED?? ; ; MODDATP dw 0 ;3F8H ;DATA PORT MODCTLP dw 0 ;3FDH ;MODEM STATUS REGISTER MODCTL2 dw 0 ;3FCH ;MODEM CONTROL REGISTER MODCTL3 dw 0 ;3FBH ;LINE CONTROL REGISTER ; ; RCVSNO DB 0 ;SECT # RECEIVED SECTNO DB 0 ;CURRENT SECTOR NUMBER ERRCT DB 0 ;ERROR COUNT ; ; FOLLOWING 3 USED BY DISK BUFFERING ROUTINES ; EOFLG DB 0 ;EOF FLAG (1=TRUE) SECPTR DW DBUF SECINBF DB 0 ;# OF SECTORS IN BUFFER ; ; HELP MSGS ; ; msg00 db cr,lf db '+---------------------------------------------------------------------+',cr,lf db '| |',cr,lf db '| M O D E M - - FOR THE IBM PERSONAL COMPUTER (PC/DOS 1.1) |',cr,lf db '| |',cr,lf DB '| All Rights Reserved |',cr,lf db '|---------------------------------------------------------------------|',cr,lf db '| |',cr,lf db '| N O T I C E : Commercial use forbidden. |',cr,lf db '| |',cr,lf db '| This program is provided for personal and non-commercial use only. |',cr,lf db '| Sale is forbidden. Users of this program are granted |',cr,lf db '| limited rights to reproduce and distribute this program, provided |',cr,lf db '| that a) the program is not sold, or provided for consideration |',cr,lf db '| of any sort, including copying or distribution fees greater than |',cr,lf db '| the face value of the media and postage. and b) the program is |',cr,lf db '| provided in unmodified form, with this notice, and all other |',cr,lf db '| documentation intact. |',cr,lf db '| |',cr,lf db '+---------------------------------------------------------------------+',cr,lf db cr,lf,0,1 ; ; MSG01 DB CR,LF ; 1234567890123456789012345678901234567890123456789012345678901234567890 DB '---- M O D E M ---- ',cr,lf,cr,lf db 'Converted from MODEM 3.0 by Ward Christensen ',cr,lf DB 'Sale, or any other commercial use forbidden',cr,lf DB 'Version 3.2 for IBM PC/DOS',cr,lf DB ' R E A D Y ',cr,lf db cr,lf,'$',1,0 MSG01A DB 'File Open, Ready to Receive',CR,LF,0 MSG02 DB 'Awaiting #',0 MSG03A DB 'h rcd, not soh',CR,LF,0 MSG03 DB '+++ TIMEOUT +++',0 MSG04 DB '++ Bad Sector # in Hdr',CR,LF,0 MSG05 DB '++ CKSUM ++',0 MSG06 DB 'Send # ',0 MSG07 DB 'h rcvd, not ack ',CR,LF,0 MSG08 DB 'Timeout on ack',CR,LF,0 MSG09 DB 'Modem Program Cancelled ',CR,LF,0 MSG10 DB 'File exists, Type Y to erase ',0 MSG11 DB 'Can not open file$' MSG12 DB 'File open, Extent Length ',0 MSG13 DB 'Awaiting Initial nak',CR,LF,0 MSG14 DB cr,lf,'Transfer Complete',CR,LF,0 MSG15 DB cr,lf,'Press Return to Disconnect',0 MSG16 DB '++ DISCONNECTED ++',0 MSG17 DB cr,lf,'++ Do not Forget - The Modem is' DB 'NOT Disconnected',CR,LF,0 ; DB 'Use "M3 D" to Disconnect',CR,LF,0 MSG18 DB 'Multiple errors encountered. ' DB 'Type Q to quit, R to Retry ',0 MSG19 DB CR,LF,'Press Return to Continue' DB CR,LF,0 MSG20 DB '++ Unable to Receive Block' DB CR,LF,'++ ABORTING ++$' MSG21 DB 'Can not Send Sector ' DB '- ABORTING',CR,LF,'$' MSG22 DB '++ ERROR - Can not make file',CR,LF DB '++ Directory must be full',CR,LF,'$' MSG22A DB '++ Can not Close Files ++$' MSG23 DB '++ File Read ERROR ++$' MSG24 DB '++ ERROR Writing File ++',CR,LF,'$' MSG25 DB 'Invalid option on modem command',CR,LF DB 'PRESS RETURN FOR HELP, CTL-C IF NOT',CR,LF,1,0 MSG26 DB 'Format for command is',CR,LF,CR,LF DB 'MODEM # FILENAME',CR,LF,CR,LF DB 'Where # is a 1 character primary option,',CR,LF DB ' which may be followed by sub-options,',CR,LF ; DB ' and by ".xxx" to set baud rate to xxx' DB CR,LF,CR,LF,1 DB 'Primary Options',CR,LF DB ' S to send a file',CR,LF DB ' R to receive a file',CR,LF DB ' T to act as a terminal',CR,LF DB ' E to act as a computer (echo data)',CR,LF ; DB ' D to disconnect the phone' ; DB ' (S100 modems only)',CR,LF DB ' H to print this help file' DB CR,LF,CR,LF,1 DB 'Secondary options',CR,LF ; DB ' A answer mode',CR,LF ; DB ' O originate mode',CR,LF ; DB ' D disconnect after execution',CR,LF ; DB ' I initialize uart to defaults 300,n,8,1',CR,LF DB ' T go to terminal mode after file xfer',CR,LF DB ' E go to echo mode after file xfer',CR,LF DB ' Q quiet mode - no status msgs',CR,LF DB ' R show chars received',CR,LF DB ' S show chars sent',CR,LF DB ' V view file sent/received (no status)',CR,LF ; DB ' 2 switch to COM2: - second rs232 port',CR,LF ; DB ' 3 switch to COM3: - third rs232 port',CR,LF DB CR,LF,'FOR EXAMPLES, TYPE MODEM X',CR,LF,1,0 MSG27 DB 'Send file, ',CR,LF DB ' MODEM S fn.ft',CR,LF DB 'Send another file',CR,LF DB ' MODEM S fn.ft',CR,LF ; DB 'Then send a third file at 450 baud and disconnect' ; DB CR,LF,' MODEM SD.450 fn.ft',CR,LF DB 'Act as a terminal ',CR,LF DB ' MODEM T',CR,LF DB ' Use ctl-D to disconnect)',CR,LF DB 'Receive file, view it',CR,LF DB ' MODEM RV fn.ft',CR,LF,1,0 ; DBUF DB 128*16 DUP(?) ;16 LOGICAL SECTOR BUFFER # 1 ; (* Four physical sectors) DB 128*16 DUP(?) ;16 LOGICAL SECTOR BUFFER # 2 ; (* Four physical sectors) ; TOTAL = one track on PC/DOS (8/512) ; DB 'POOT' SUBTTL 'MAIN PROGRAM SECTION' PAGE STARTS: ; ;============================================================================= ; ; CLEAR THE SCREEN (cursor = 1,1) ; push dx SUB CX,CX ;UPPER LEFT CORNER MOV DX,184FH ;BOTTOM RIGHT CORNER MOV BH,7 ;NORMAL ATTRIB FOR CLS SCROLL ;INVOKE BIOS TO CLEAR SCREEN SUB DX,DX ;POINT TO ROW 1,COL 1 LOCATE ;SET THE CURSOR TO TOP LEFT ; ; PRINT THE STARTUP MESSAGE ; MOV DX,OFFSET MSG01 ;GET ID MESSAGE MOV CL,PRINT CALL BDOS ;PRINT ID MESSAGE pop dx ; ;============================================================================= ; ; ;SAVE PRIMARY OPTION, VALIDATE SECONDARY OPT. ; CALL PROCOPT ; IF WE RETURN FROM PROCOPT, A VALID ; ACTION OPTION (not help or examples) ; WAS FOUND .. PROCESSING CONTINUES ; ;INIT THE MODEM OR SERIAL PORT (dtr UP always - THEN CHECK FOR "i" OPT. ; CALL INITMOD ; ;MOVE THE FILENAME FROM FCB 2 TO FCB 1 ; CALL MOVEFCB ; ; ;GOBBLE UP GARBAGE CHARS FROM THE LINE ;PRIOR TO RECEIVE OR SEND ; PUSH DX MOV DX,MODDATP IN AL,DX IN AL,DX POP DX ; ;JMP TO APPROPRIATE FUNCTION ; MOV AL,OPTION ;GET PRIMARY OPTION ; CMP AL,'C' ;(COMPAT W/EARLIER JNZ L00001 JMP TRMECHO ;OPTION "COMPUTER") ; L00001: CMP AL,'E' ;TERMINAL IN ECHO JNZ L00002 JMP TRMECHO ;..MODE? ; L00002: CMP AL,'T' ;TERMINAL.. JNZ L00003 JMP TERM ;..MODE? ; L00003 LABEL NEAR ; CMP AL,'D' ; JNZ L00004 ; JMP DISCONN ;L00004 LABEL NEAR ; CMP AL,'S' ;SEND.. JNZ L00005 JMP SENDFIL ;..A FILE? ; L00005: CMP AL,'R' ;RECEIVE.. JNZ L00006 JMP RCVFIL ;..A FILE? ; ;INVALID OPTION ; L00006: JMP BADOPT ;BAD OPTIONS ! ; ;RETURN TO PC DOS VIA INT 20H IN SEGMENT PREFIX ; EXIT: PUSH ES ;SET RETURN SEGMENT TO STACK SUB AX,AX ;CLEAR A REGISTER PUSH AX ;PUT ZERO RETURN ADDR TO STACK RET ;FAR RETURN TO FORCE CS TO ... MAIN ENDP ;.. POINT TO SEGMENT PREFIX ; * * * * * * * * * * * * * * * * * * * * ; * ; TERM: TERMINAL MODE * ; * ; * * * * * * * * * * * * * * * * * * * * ; ;THIS PROGRAM SIMPLY SENDS KEYED CHARACTERS ;DOWN THE LINE, AND DISPLAYS CHARACTERS ;RECEIVED FROM THE LINE. THIS MAKES IT ;SUITABLE FOR COMMUNICATION WITH TIME SHARING ;COMPUTERS, CBBS'S, OR ANOTHER PROGRAM ;RUNING "MODEM E" (ECHO MODE) ; ;TYPEZZ THE "EXITCHR" (ORIGINALLY CTL-E) TO EXIT. ;OR THE "DISCCHR" (ORIGINALLY CTL-D) TO DISCONN. ; ;A FUTURE ENHANCEMENT WILL BE TO WRITE THE ;RECEIVED DATA IN MEMORY, AND ALLOW IT TO ;BE WRITTEN TO DISK ; TERM PROC NEAR CALL STAT ;LOCAL CHAR KEYED? JNZ L00007 JMP TERML ;..NO, CHECK LINE L00007: CALL KEYIN ;GET CHAR CMP AL,EXITCHR ;TIME TO END? JNZ L00008 JMP CKDIS ;YES, CK DISCONN L00008: CMP AL,DISCCHR ;DISCONNECT REQUEST? JNZ L00009 JMP DISCONN ;YES, DO IT L00009: PUSH DX MOV DX,MODDATP OUT DX,AL ;SEND THE CHAR POP DX ; ;SEE IF CHAR FROM LINE ; TERML: PUSH DX MOV DX,MODCTLP IN AL,DX ;READ STATUS POP DX AND AL,MODRCVB ;ISOLATE BIT CMP AL,MODRCVR ;READY? JZ L00010 JMP TERM ;..NO, LOOP L00010: PUSH DX MOV DX,MODDATP IN AL,DX ;READ DATA POP DX CALL TYPEZZ ;TYPEZZ IT JMP TERM ;LOOP TERM ENDP ; ; * * * * * * * * * * * * * * * * * * * * ; * ; TRMECHO: TERMINAL WITH ECHO * ; * ; * * * * * * * * * * * * * * * * * * * * ; ;TERMINAL PROGRAM WITH ECHO - SEE NOTES ;UNDER "TERM" ABOVE ; ;C A U T I O N DON'T RUN WITH BOTH COMPUTERS ;IN "ECHO" MODE - LINE ERRORS (OR ANY CHAR) ;WILL BE ECHOED BACK AND FORTH AD INFINITUM. ; TRMECHO PROC NEAR PUSH DX MOV DX,MODCTLP IN AL,DX ;GET STATUS POP DX AND AL,MODRCVB ;ISOLATE READY BIT CMP AL,MODRCVR ;ARE WE READY? JNZ L00011 JMP LINECHR ;YES, READ THE CHR L00011: CALL STAT ;CHECK LOCAL KB JNZ L00012 JMP TRMECHO ;..NO CHAR L00012: CALL KEYIN ;GET LOCAL CHAR CMP AL,EXITCHR ;END? JNZ L00013 JMP CKDIS ;YES, CK DISCONN, EXIT L00013: CMP AL,DISCCHR ;DISCONN? JNZ L00014 JMP DISCONN ;..YES, DO IT. L00014: PUSH DX MOV DX,MODDATP OUT DX,AL ;SEND CHAR POP DX CALL TYPEZZ ;ECHO IT LOCALLY JMP TRMECHO ;..AND LOOP ; ;GOT CHAR FROM LINE ; LINECHR: PUSH DX MOV DX,MODDATP IN AL,DX ;GET CHAR OUT DX,AL ;ECHO IT POP DX CALL TYPEZZ ;TYPEZZ IT JMP TRMECHO ;LOOP TRMECHO ENDP ; ; * * * * * * * * * * * * * * * * * * * * ; * ; SENDFIL: SENDS A CP/M FILE * ; * ; * * * * * * * * * * * * * * * * * * * * ; ;THE CP/M FILE SPECIFIED IN THE MODEM COMMAND ;IS TRANSFERRED OVER THE PHONE TO ANOTHER ;COMPUTER RUNNING MODEM WITH THE "R" (RECEIVE) ;OPTION. THE DATA IS SENT ONE SECTOR AT A ;TIME WITH HEADERS AND CHECKSUMS, AND RE- ;TRANSMISSION ON ERRORS. ; SENDFIL PROC NEAR CALL OPENFIL ;OPEN THE FILE MOV DL,80 ;WAIT 80 SEC.. CALL WAITNAK ;..FOR INITIAL NAK SENDLP: CALL RDSECT ;READ A SECTOR JAE L00016 JMP SENDEOF ;SEND EOF IF DONE L00016: CALL INCRSNO ;BUMP SECTOR # XOR AL,AL ;ZERO ERROR.. MOV ERRCT,AL ;..COUNT SENDRPT: CALL SENDHDR ;SEND A HEADER CALL SENDSEC ;SEND DATA SECTOR CALL SENDCKS ;SEND CKSUM CALL GETACK ;GET THE ACK JAE L00017 JMP SENDRPT ;REPEAT IF NO ACK L00017: JMP SENDLP ;LOOP UNTIL EOF ; ;FILE SENT, SEND EOT'S ; SENDEOF: MOV AL,EOT ;SEND.. CALL SEND ;..AN EOT CALL GETACK ;GET THE ACK JAE L00018 JMP SENDEOF ;LOOP IF NO ACK L00018: JMP DONE ;ALL DONE SENDFIL ENDP ; ; * * * * * * * * * * * * * * * * * * * * ; * ; RCVFIL: RECEIVE A FILE * ; * ; * * * * * * * * * * * * * * * * * * * * ; ;RECEIVES A FILE IN BLOCK FORMAT AS SENT ;BY ANOTHER PERSON DOING "MODEM S FN.FT". ; RCVFIL PROC NEAR CALL ERASFIL ;ERASE THE FILE CALL MAKEFIL ;..THEN MAKE NEW MOV AL,QFLG ;SEE IF IN QUIET MODE OR AL,AL JZ L00019 JMP RCVLP ;NOT IN QUIET MODE, SKIP MSG L00019: PUSH BX MOV BX,OFFSET MSG01A CALL ILPRT ;PRINT: POP BX RCVLP: CALL RCVSECT ;GET A SECTOR JAE L00020 JMP RCVEOT ;GOT EOT L00020: CALL WRSECT ;WRITE THE SECTOR CALL INCRSNO ;BUMP SECTOR # CALL SENDACK ;ACK THE SECTOR JMP RCVLP ;LOOP UNTIL EOF ; ;GOT EOT ON SECTOR - FLUSH BUFFERS, END ; RCVEOT: CALL WRBLOCK ;WRITE THE LAST BLOCK CALL SENDACK ;ACK THE SECTOR CALL CLOSFIL ;CLOSE THE FILE MOV AL,QFLG ;QUIET.. OR AL,AL ;..MODE? JNZ L00021 JMP CKDIS ;YES, CK DISCONN, END. L00021: JMP DONE ;DISCONN IF REQ'D RCVFIL ENDP ; ; * * * * * * * * * * * * * * * * * * * * ; * ; SUBROUTINES * ; * ; * * * * * * * * * * * * * * * * * * * * ; ; ;----> RCVSECT: RECEIVE A SECTOR ; ;RETURNS WITH CARRY SET IF EOT RECEIVED. ; RCVSECT PROC NEAR XOR AL,AL ;GET 0 MOV ERRCT,AL ;INIT ERROR COUNT RCVRPT: MOV AL,QFLG ;QUIET? OR AL,AL JNZ L00022 JMP RCVSQ ;YES, NO STAT MSG. L00022: PUSH BX MOV BX,OFFSET MSG02 CALL ILPRT ;PRINT: POP BX MOV AL,SECTNO ;GET SECTOR # INC AL ;(REAL INR LATER) CALL HEXO ;PRINT IN HEX CALL CRLF ;..THEN CRLF ; RCVSQ: MOV CH,10 ;10 SEC TIMEOUT CALL RECV ;GET SOH/EOT JAE L00023 JMP RCVSTOT ;TIMEOUT L00023: CMP AL,SOH ;GET SOH? JNZ L00024 JMP RCVSOH ;..YES ; ;EARLIER VERS. OF MODEM PROG SENT SOME NULLS - ;IGNORE THEM ; L00024: OR AL,AL ;00 FROM SPEED CHECK? JNZ L00025 JMP RCVSQ ;YES, IGNORE IT L00025: CMP AL,EOT ;END OF TRANSFER? STC ;RETURN WITH CARRY.. JNZ L00026 RET ;..SET IF EOT ; ;DIDN'T GET SOH OR EOT - ; L00026: MOV CH,AL ;SAVE CHAR MOV AL,VSEEFLG ;VIEWING.. OR AL,AL ;..MODE? JNZ L00027 JMP RCVSEH ;YES, PRT.MSG L00027: MOV AL,QFLG ;QUIET.. OR AL,AL ;..MODE? JNZ RCVSEH JMP RCVSERR ;YES, SKIP MSG RCVSEH: MOV AL,CH ;GET CHAR CALL HEXO ;SHOW IN HEX PUSH BX MOV BX,OFFSET MSG03 CALL ILPRT ;PRINT: POP BX ; ;DIDN'T GET VALID HEADER - PURGE THE LINE, ;THEN SEND NAK. ; RCVSERR: MOV CH,1 ;WAIT FOR 1 SEC.. CALL RECV ;..WITH NO CHARS JNAE L00029 JMP RCVSERR ;LOOP UNTIL SENDER DONE L00029: MOV AL,NAK ;SEND.. CALL SEND ;..THE NAK MOV AL,ERRCT ;ABORT IF.. INC AL ;..WE HAVE REACHED.. MOV ERRCT,AL ;..THE ERROR.. CMP AL,ERRLIM ;..LIMIT? JAE L00030 JMP RCVRPT ;..NO, TRY AGAIN ; ;10 ERRORS IN A ROW - ; L00030: MOV AL,VSEEFLG ;VIEWING.. OR AL,AL ;..FILE? JNZ L00031 JMP RCVCKQ ;YES, ASK RETRY/QUIT L00031: MOV AL,QFLG ;QUIET.. OR AL,AL ;..MODE? JNZ RCVCKQ JMP RCVSABT ;ABORT RCVCKQ: CALL CKQUIT ;RETRY/QUIT? JNZ RCVSABT JMP RCVSECT ;TRY AGAIN ; RCVSABT: CALL CLOSFIL ;KEEP WHATEVER WE GOT MOV DX,OFFSET MSG20 CALL ERXIT ; ;TIMEDOUT ON RECEIVE ; RCVSTOT: STI MOV AL,VSEEFLG ;VIEWING.. OR AL,AL ;..MODE? JNZ L00034 JMP RCVSPT ;YES, PRT MSG L00034: MOV AL,QFLG ;QUIET.. OR AL,AL ;..MODE? JNZ RCVSPT JMP RCVSERR ;YES, NO MSG RCVSPT: PUSH BX MOV BX,OFFSET MSG03 CALL ILPRT POP BX RCVPRN: MOV AL,ERRCT ;PRINT ERROR.. CALL HEXO ;..COUNT CALL CRLF JMP RCVSERR ;BUMP ERR CT, ETC. ; ;GOT SOH - GET BLOCK #, BLOCK # COMPLEMENTED ; RCVSOH: MOV CH,1 ;TIMEOUT = 1 SEC CALL RECV ;GET SECTOR JAE L00036 JMP RCVSTOT ;GOT TIMEOUT L00036: MOV DH,AL ;D=BLK # MOV CH,1 ;TIMEOUT = 1 SEC CALL RECV ;GET CMA'D SECT # JAE L00037 JMP RCVSTOT ;TIMEOUT L00037: NOT AL ;CALC COMPLEMENT CMP AL,DH ;GOOD SECTOR #? JNZ L00038 JMP RCVDATA ;YES, GET DATA ; ;GOT BAD SECTOR # ; L00038: MOV AL,VSEEFLG ;VIEWING.. OR AL,AL ;..MODE? JNZ L00039 JMP RCVBSE ;..YES, PRT MSG L00039: MOV AL,QFLG ;QUIET.. OR AL,AL ;..MODE? JNZ RCVBSE JMP RCVSERR ;..YES, NO MSG ; RCVBSE: PUSH BX MOV BX,OFFSET MSG04 CALL ILPRT ;PRINT: POP BX JMP RCVSERR ;BUMP ERROR CT. ; ; RCVDATA: MOV AL,DH ;GET SECTOR # MOV RCVSNO,AL ;SAVE IT MOV AL,1 ;SHOW.. MOV DATAFLG,AL ;GETTING DATA MOV CL,0 ;INIT CKSUM MOV BX,80H ;POINT TO BUFFER CLI RCVCHR: MOV CH,1 ;1 SEC TIMEOUT CALL RECV ;GET CHAR JAE L00041 JMP RCVSTOT ;TIMEOUT L00041: MOV BYTE PTR [BX],AL ;STORE CHAR INC BL ;DONE? JZ L00042 JMP RCVCHR ;NO, LOOP ; ;VERIFY CHECKSUM ; L00042: MOV DH,CL ;SAVE CHECKSUM XOR AL,AL ;SHOW.. MOV DATAFLG,AL ;..END OF DATA MOV CH,1 ;TIMEOUT LEN. CALL RECV ;GET CHECKSUM JAE L00043 JMP RCVSTOT ;TIMEOUT L00043: STI CMP AL,DH ;CHECKSUM OK? JZ L00044 JMP RCVCERR ;NO, ERROR ; ;GOT A SECTOR, IT'S A DUP IF = PREV, ; OR OK IF = 1 + PREV SECTOR ; L00044: MOV AL,RCVSNO ;GET RECEIVED MOV CH,AL ;SAVE IT MOV AL,SECTNO ;GET PREV CMP AL,CH ;PREV REPEATED? JNZ L00045 JMP RECVACK ;ACK TO CATCH UP L00045: INC AL ;CALC NEXT SECTOR # CMP AL,CH ;MATCH? JZ L00046 JMP ABORT ;NO MATCH - STOP SENDER, EXIT L00046: RET ;CARRY OFF - NO ERRORS ; ;GOT CKSUM ; RCVCERR: MOV AL,VSEEFLG ;VIEWING.. OR AL,AL ;..MODE? JNZ L00047 JMP RCVCPR ;..YES, PRT MSG L00047: MOV AL,QFLG ;QUIET.. OR AL,AL ;..MODE? JNZ RCVCPR JMP RCVSERR ;YES, NO MSG RCVCPR: PUSH BX MOV BX,OFFSET MSG05 CALL ILPRT POP BX JMP RCVPRN ;PRINT ERROR # ; ;PREV SECT REPEATED, DUE TO THE LAST ACK ;BEING GARBAGED. ACK IT SO SENDER WILL CATCH UP ; RECVACK: CALL SENDACK ;SEND THE ACK, JMP RCVSECT ;GET NEXT BLOCK ; ;SEND AN ACK FOR THE SECTOR ; SENDACK: MOV AL,ACK ;GET ACK CALL SEND ;..AND SEND IT RET RCVSECT ENDP ; ;----> SENDHDR: SEND THE SECTOR HEADER ; ;SEND: (SOH) (BLOCK #) (COMPLEMENTED BLOCK #) ; SENDHDR PROC NEAR MOV AL,QFLG ;QUIET.. OR AL,AL ;..MODE? JNZ L00049 JMP SENDHNM ;YES, SKIP STATUS MSG. L00049: PUSH BX MOV BX,OFFSET MSG06 CALL ILPRT ;PRINT: POP BX MOV AL,SECTNO ;PRINT.. CALL HEXO ;..SECT # CALL CRLF ;..THEN CR/LF ; SENDHNM: MOV AL,SOH ;SEND.. CALL SEND ;..SOH, MOV AL,SECTNO ;THEN SEND.. CALL SEND ;..SECTOR # MOV AL,SECTNO ;THEN SENDOR # NOT AL ;..COMPLEMENTED.. CALL SEND ;..SECTOR # RET ;FROM SENDHDR SENDHDR ENDP ; ;----> SENDSEC: SEND THE DATA SECTOR ; ;WHILE SENDING THE SECTOR, THE "DATAFLG" IS SET ;SUCH THAT IF "V" (VIEW THE FILE) WAS REQUESTED, ;THE "SHOW" ROUTINE WILL PRINT THE DATA, BUT NOT ;THE HDR OR CKSUM, OR ANY NON-FATAL MSGS. ; SENDSEC PROC NEAR MOV AL,1 ;SHOW NOW AT DATA.. MOV DATAFLG,AL ;..FOR VIEW COMMAND MOV CL,0 ;INIT CKSUM MOV BX,80H ;POINT TO BUFFER SENDC: MOV AL,BYTE PTR [BX] ;GET A CHAR CALL SEND ;SEND IT INC BL ;POINT TO NEXT CHAR JZ L00050 JMP SENDC ;LOOP IF <100H L00050: XOR AL,AL ;SHOW NOT INTO DATA.. MOV DATAFLG,AL ;..FOR VIEW COMMAND RET ;FROM SENDSEC SENDSEC ENDP ; ;----> SENDCKS: SEND THE CHECKSUM ; SENDCKS PROC NEAR MOV AL,CL ;SEND THE.. CALL SEND ;..CHECKSUM RET ;FROM SENDCKS SENDCKS ENDP ; ;----> GETACK: GET THE ACK ON THE SECTOR ; ;RETURNS WITH CARRY CLEAR IF ACK RECEIVED. ;IF AN ACK IS NOT RECEIVED, THE ERROR COUNT ;IS INCREMENTED, AND IF LESS THAN "ERRLIM", ;CARRY IS SET AND CONTROL RETURNS. IF THE ;ERROR COUNT IS AT "ERRLIM", THE PROGRAM ;ABORTS IF IN "QUIET" MODE, OR ASKS THE ;USER FOR QUIT/RETRY IF NOT. ; GETACK PROC NEAR MOV CH,10 ;WAIT 10 SECONDS MAX CALL RECVDG ;RECV W/GARBAGE COLLECT JAE L00051 JMP GESATOT ;TIMED OUT L00051: CMP AL,ACK ;OK? (CARRY OFF IF =) JNZ L00052 RET ;YES, RET FROM GETACK ; L00052 LABEL NEAR IF CANFLG CMP AL,CAN ;CANCEL TRANSMISSION? JNZ L00053 JMP ABORT ;..YES L00053 LABEL NEAR ENDIF ; MOV CH,AL ;SAVE CHAR MOV AL,QFLG ;QUIET.. OR AL,AL ;..MODE? JNZ L00054 JMP ACKERR ;..YES, NO MSG L00054: MOV AL,CH ;GET CHAR CALL HEXO ;PRINT IN HEX PUSH BX MOV BX,OFFSET MSG07 CALL ILPRT ;PRINT: POP BX ; ;TIMEOUT OR ERROR ON ACK - BUMP ERROR COUNT ; ACKERR: MOV AL,ERRCT ;GET COUNT INC AL ;BUMP IT MOV ERRCT,AL ;SAVE BACK CMP AL,ERRLIM ;AT LIMIT? JNB L00055 RET ;NOT AT LIMIT ; ;REACHED ERROR LIMIT ; L00055: MOV AL,VSEEFLG ;VIEWING.. OR AL,AL ;..FILE? JNZ L00056 JMP GACKV ;YES, ASK QUIT/RETRY L00056: MOV AL,QFLG ;QUIET.. OR AL,AL ;..MODE? JNZ GACKV JMP CSABORT ;..YES, NO MCG GACKV: CALL CKQUIT ;SEE IF WANT TO QUIT STC ;TO SHOW NO ACK JNZ CSABORT RET ;KEEP ON TRYIN' CSABORT: MOV DX,OFFSET MSG21 CALL ERXIT GETACK ENDP ; ;TIMEOUT GETTING ACK ; GESATOT PROC NEAR MOV AL,QFLG ;QUIET.. OR AL,AL ;..MODE? JNZ L00059 JMP ACKERR ;YES, NO MSG L00059: PUSH BX MOV BX,OFFSET MSG08 CALL ILPRT ;PRINT: POP BX JMP ACKERR GESATOT ENDP ; ;----> CKABORT: CHECK FOR LOCAL ABORT ; ;IF THE USER WANTS TO CANCEL THE TRANSMISSION, ;TYPING CTL-X WILL ABORT IT. NOTE THIS TEST ;IS NOT MADE IF IN QUIET (NO CONSOLE I/O) MODE. ; CKABORT PROC NEAR MOV AL,VSEEFLG ;VIEWING? OR AL,AL JNZ L00060 JMP CKABGO ;YES, CHECK L00060: MOV AL,QFLG ;SUPPRESSED.. OR AL,AL ;..CONSOLE I/O? JNZ L00061 RET ;YES, NO TEST ; L00061 LABEL NEAR IF NOT CANFLG RET ENDIF ; CKABGO: CALL STAT ;KEY PRESSED? JNZ L00062 RET ;NOTHING FROM KEYBOARD L00062: CALL KEYIN ;GET DATA CMP AL,EXITCHR ;TIME TO END? JZ ABORT RET ;NO, CONTINUE ; ABORT: NOP ;LEA SP,STACK ABORTL: MOV CH,1 ;1 SEC. W/O CHARS. CALL RECV JNAE L00064 JMP ABORTL ;LOOP UNTIL SENDER DONE L00064: MOV AL,CAN ;CONTROL X CALL SEND ;STOP SENDING END ABORTW: MOV CH,1 ;1 SEC W/O CHARS. CALL RECV JNAE L00065 JMP ABORTW ;LOOP UNTIL SENDER DONE L00065: MOV AL,' ' ;GET A SPACE... CALL SEND ;TO CLEAR OUT CONTROL X PUSH BX MOV BX,OFFSET MSG09 CALL ILPRT ;EXIT WITH ABORT MSG POP BX JMP CKDIS ;CHECK FOR DISCONN. CKABORT ENDP ; ;----> INCRSNO: INCREMENT SECTOR # ; INCRSNO PROC NEAR MOV AL,SECTNO ;INCR.. INC AL ;..SECT.. MOV SECTNO,AL ;..NUMBER RET INCRSNO ENDP ; ;----> ERASFIL: ERASE THE INCOMING FILE. ; ;IF IT EXISTS, ASK IF IT MAY BE ERASED. ; ERASFIL PROC NEAR MOV DX,OFFSET FCB ;POINT TO CTL BLOCK MOV CL,SRCHF ;SEE IF IT.. CALL BDOS ;..EXISTS INC AL ;FOUND? JNZ L00066 RET ;..NO, RETURN L00066: PUSH BX MOV BX,OFFSET MSG10 CALL ILPRT ;PRINT: POP BX CALL KEYIN ;GET CHAR LAHF XCHG AL,AH PUSH AX XCHG AL,AH CALL TYPEZZ ;ECHO POP AX XCHG AL,AH SAHF AND AL,5FH ;MAKE UPPER CASE CMP AL,'Y' ;WANT ERASED? JZ L00067 JMP CKDIS ;QUIT IF NOT ERASE L00067: CALL CRLF ;BACK TO START OF LINE ; ;ERASE OLD FILE ; MOV DX,OFFSET FCB ;POINT TO FCB MOV CL,ERASE ;GET BDOS FNC CALL BDOS ;DO THE ERASE RET ;FROM "ERASFIL" ERASFIL ENDP ; ;----> MAKEFIL: MAKES THE FILE TO BE RECEIVED ; MAKEFIL PROC NEAR MOV DX,OFFSET FCB ;POINT TO FCB MOV CL,MAKE ;GET BDOS FNC CALL BDOS ;TO THE MAKE INC AL ;FF=BAD? JZ L00068 RET ;OPEN OK ;DIRECTORY FULL - CAN'T MAKE FILE L00068: MOV DX,OFFSET MSG22 CALL ERXIT MAKEFIL ENDP ; ;----> OPENFIL: OPENS THE FILE TO BE SENT ; OPENFIL PROC NEAR MOV DX,OFFSET FCB ;POINT TO FILE MOV CL,OPEN ;GET FUNCTION CALL BDOS ;OPEN IT INC AL ;OPEN OK? JZ L00069 JMP OPENOK ;..YES L00069: PUSH DX MOV DX,OFFSET MSG11 CALL ERXIT ;..NO, ABORT POP DX ; OPENOK: PUSH BX MOV BX,OFFSET MSG12 CALL ILPRT ;PRINT: POP BX MOV AL,FCBSZH ;GET FILE SIZE HIGH ORDER CALL HEXO ;PRINT IN HEX MOV AL,FCBSZL ;GET FILE SIZE LOW ORDER CALL HEXO ;PRINT IN HEX MOV AL,'H' CALL TYPEZZ ;PRINT 'H' AFTER NUMBER CALL CRLF ;..THEN CRLF RET OPENFIL ENDP ; ;----> CLOSFIL: CLOSES THE RECEIVED FILE ; CLOSFIL PROC NEAR MOV DX,OFFSET FCB ;POINT TO FILE MOV CL,CLOSE ;GET FUNCTION CALL BDOS ;CLOSE IT INC AL ;CLOSE OK? JZ L00070 RET ;..YES, RETURN L00070: MOV DX,OFFSET MSG22A CALL ERXIT ;..NO, ABORT CLOSFIL ENDP ; ;----> RDSECT: READS A SECTOR ; ;FOR SPEED, THIS ROUTINE BUFFERS UP 16 ;SECTORS AT A TIME. ; RDSECT PROC NEAR MOV AL,SECINBF ;GET # SECT IN BUFF. DEC AL ;DECREMENT.. MOV SECINBF,AL ;..IT JNS L00071 JMP RDBLOCK ;EXHAUSTED? NEED MORE. L00071: MOV BX,SECPTR ;GET POINTER MOV DX,80H ;TO DATA CALL MOVE128 ;MOVE TO BUFFER MOV SECPTR,BX ;SAVE BUFFER POINTER RET ;FROM "READSEC" ; ;BUFFER IS EMPTY - READ IN ANOTHER BLOCK OF 16 ; RDBLOCK LABEL NEAR MOV AL,EOFLG ;GET EOF FLAG CMP AL,1 ;IS IT SET/ STC ;TO SHOW EOF JNZ L00072 RET ;GOT EOF L00072: MOV CL,0 ;SECTORS IN BLOCK LEA DX,DBUF ;TO DISK BUFFER RDSECLP LABEL NEAR PUSH CX PUSH DX MOV CL,STDMA ;SET DMA.. CALL BDOS ;..ADDR MOV DX,OFFSET FCB MOV CL,READ CALL BDOS POP DX POP CX OR AL,AL ;READ OK? JNZ L00073 JMP RDSECOK ;YES L00073: DEC AL ;EOF? JZ REOF ; 1 = EOF (regular) DEC AL JZ L00074 ; 2 = ERROR (trans area too small) DEC AL JZ REOF ; 3 = EOF (partial block) JMP L00074 ; ALL OTHER RETURNS CONSIDERED ERROR !!! ; ;READ ERROR ; L00074: MOV DX,OFFSET MSG23 CALL ERXIT ; RDSECOK: MOV BX,80H PUSH SI PUSHF ADD BX,DX RCR SI,1 POPF RCL SI,1 POP SI ;TO NEXT BUFF XCHG BX,DX ;BUFF TO DE INC CL ;MORE SECTORS? MOV AL,CL ;GET COUNT CMP AL,16 ;DONE? JNZ L00075 JMP RDBFULL ;..YES, BUFF IS FULL L00075: JMP RDSECLP ;READ MORE ; REOF: MOV AL,1 MOV EOFLG,AL ;SET EOF FLAG MOV AL,CL ; ;BUFFER IS FULL, OR GOT EOF ; RDBFULL: MOV SECINBF,AL ;STORE SECTOR COUNT MOV BX,OFFSET DBUF ;INIT BUFFER.. MOV SECPTR,BX ;..POINTER MOV DX,80H ;RESET.. MOV CL,STDMA ;..DMA.. CALL BDOS ;..ADDR JMP RDSECT ;PASS SECT TO CALLER RDSECT ENDP ; ;----> WRSECT: WRITE A SECTOR ; ;WRITES THE SECTOR INTO A BUFFER. WHEN 16 ;HAVE BEEN WRITTEN, WRITES THE BLOCK TO DISK. ; ;ENTRY POINT "WRBLOCK" FLUSHES THE BUFFER AT EOF. ; WRSECT PROC NEAR MOV BX,SECPTR ;GET BUFF ADDR XCHG BX,DX ;TO DE FOR MOVE MOV BX,80H ;FROM HERE CALL MOVE128 ;MOVE TO BUFFER XCHG BX,DX ;SAVE NEXT.. MOV SECPTR,BX ;..BLOCK POINTER MOV AL,SECINBF ;BUMP THE.. INC AL ;..SECTOR #.. MOV SECINBF,AL ;..IN THE BUFF CMP AL,16 ;HAVE WE 16? JZ WRBLOCK RET ;NO, RETURN ; ;----> WRBLOCK: WRITES A BLOCK TO DISK ; WRBLOCK: MOV AL,SECINBF ;# SECT IN BUFFER OR AL,AL ;0 MEANS END OF FILE JNZ L00077 RET ;NONE TO WRITE L00077: MOV CL,AL ;SAVE COUNT LEA DX,DBUF ;POINT TO DISK BUFF DKWRLP: PUSH BX PUSH DX PUSH CX MOV CL,STDMA ;SET DMA CALL BDOS ;TO BUFFER MOV DX,OFFSET FCB ;THEN WRITE MOV CL,WRITE ;..THE.. CALL BDOS ;..BLOCK POP CX POP DX POP BX OR AL,AL JZ L00078 JMP WRERR ;OOPS, ERROR L00078: MOV BX,80H ;LENGTH OF 1 SECT PUSH SI PUSHF ADD BX,DX RCR SI,1 POPF RCL SI,1 POP SI ;HL= NEXT BUFF XCHG BX,DX ;TO DE FOR SETDMA DEC CL ;MORE SECTORS? JZ L00079 JMP DKWRLP ;..YES, LOOP L00079: XOR AL,AL ;GET A ZERO MOV SECINBF,AL ;RESET # OF SECTORS MOV BX,OFFSET DBUF ;RESET BUFFER.. MOV SECPTR,BX ;..POINTER ; MOV DX,80H ;07/13/79 MOD.. MOV CL,STDMA ;..TO RESET.. CALL BDOS ;..DMA ADDR. ; RET ; WRERR: MOV CL,CAN ;CANCEL.. CALL SEND ;..SENDER MOV DX,OFFSET MSG24 CALL ERXIT ;EXIT W/MSG: WRSECT ENDP ; ;----> RECV: RECEIVE A CHARACTER ; ;TIMEOUT TIME IS IN B, IN SECONDS. ENTRY VIA ;"RECVDG" DELETES GARBAGE CHARACTERS ON THE ;LINE. FOR EXAMPLE, HAVING JUST SENT A SECTOR, ;CALLING RECVDG WILL DELETE ANY LINE-NOISE-INDUCED ;CHARACTERS "LONG" BEFORE THE ACK/NAK WOULD ;BE RECEIVED. ; RECCHAR PROC NEAR RECVDG LABEL NEAR ;RECEIVE W/GARBAGE DELETE PUSH DX MOV DX,MODDATP IN AL,DX ;GET A CHAR IN AL,DX ;..TOTALLY PURGE UART POP DX ; RECV: PUSH DX ;SAVE ; IF FASTCLK ;4MHZ? MOV AL,CH ;GET TIME REQUEST ADD AL,AL ;DOUBLE IT MOV CH,AL ;NEW TIME IN B ENDIF ; MSEC: MOV DX,50000 ;1 SEC DCR COUNT CALL CKABORT ;CHECK FOR EXIT REQUEST MWTI: PUSH DX MOV DX,MODCTLP IN AL,DX ;CHECK STATUS POP DX AND AL,MODRCVB ;ISOLATE BIT CMP AL,MODRCVR ;READY? JNZ L00080 JMP MCHAR ;GOT CHAR L00080: DEC DL ;COUNT.. JZ L00081 JMP MWTI ;..DOWN.. L00081: DEC DH ;..FOR.. JZ L00082 JMP MWTI ;..TIMEOUT L00082: DEC CH ;MORE SECONDS? JZ L00083 JMP MSEC ;YES, WAIT ; ;MODEM TIMED OUT RECEIVING ; L00083: POP DX ;RESTORE D,E STC ;CARRY SHOWS TIMEOUT RET ; ;GOT CHAR FROM MODEM ; MCHAR: PUSH DX MOV DX,MODDATP IN AL,DX ;READ THE CHAR POP DX POP DX ;RESTORE DE ; ;CALC CHECKSUM ; LAHF XCHG AL,AH PUSH AX XCHG AL,AH ;SAVE THE CHAR ADD AL,CL ;ADD TO CHECKSUM MOV CL,AL ;SAVE CHECKSUM ; ;CHECK IF MONITORING REC'D DATA ; MOV AL,RSEEFLG ;SEE RECEIVED.. OR AL,AL ;..DATA? JNZ L00084 JMP MONIN ;..YES ; ;CHECK IF "VIEWING" AND THIS IS A DATA CHAR ; L00084: MOV AL,VSEEFLG ;VIEWING.. OR AL,AL ;..DATA? JZ L00085 JMP NOMONIN ;..NO ; ;"VIEW" REQUESTED. SHOW THE CHAR IT IS DATA ; L00085: MOV AL,DATAFLG ;GET DATA FLAG OR AL,AL ;TEST IT JNZ MONIN JMP NOMONIN ;..OFF, NOT DATA MONIN: POP AX XCHG AL,AH SAHF ;..IS DATA, LAHF XCHG AL,AH PUSH AX XCHG AL,AH ;GET IT, CALL SHOW ;..AND SHOW IT NOMONIN: POP AX XCHG AL,AH SAHF ;RESTORE CHAR OR AL,AL ;CARRY OFF: NO ERROR RET ;FROM "RECV" RECCHAR ENDP ; ;----> SEND: SEND A CHARACTER TO THE MODEM ; SEND PROC NEAR LAHF XCHG AL,AH PUSH AX XCHG AL,AH ;SAVE THE CHAR ; ;CHECK IF MONITORING SENT DATA ; MOV AL,SSEEFLG ;CHECK IF MONITORING.. OR AL,AL ;..SENT DATA JNZ L00087 JMP MONOUT ;..YES ; ;CHECK IF "VIEWING" THE FILE ; L00087: MOV AL,VSEEFLG ;GET VIEW FLAG OR AL,AL ;TEST IT JZ L00088 JMP NOMONOT ;NO L00088: MOV AL,DATAFLG ;IS THIS OR AL,AL ;..DATA? JNZ MONOUT JMP NOMONOT ;..NO. MONOUT: POP AX XCHG AL,AH SAHF ;GET THE CHAR LAHF XCHG AL,AH PUSH AX XCHG AL,AH ;SAVE IT CALL SHOW ;SHOW IT NOMONOT: POP AX XCHG AL,AH SAHF ;RESTORE CHAR LAHF XCHG AL,AH PUSH AX XCHG AL,AH ;SAVE IT ADD AL,CL ;CALC CKSUM MOV CL,AL ;SAVE CKSUM SENDW: PUSH DX MOV DX,MODCTLP IN AL,DX ;GET STATUS POP DX AND AL,MODSNDB ;ISOLATE READY BIT CMP AL,MODSNDR ;READY? JZ L00090 JMP SENDW ;..NO, WAIT L00090: POP AX XCHG AL,AH SAHF ;GET CHAR PUSH DX MOV DX,MODDATP OUT DX,AL ;OUTPUT IT POP DX RET ;FROM "SEND" SEND ENDP ; ;----> WAITNAK: WAITS FOR INITIAL NAK ; ;TO ENSURE NO DATA IS SENT UNTIL THE RECEIVING ;PROGRAM IS READY, THIS ROUTINE WAITS FOR THE ;THE FIRST TIMEOUT-NAK FROM THE RECEIVER. (E) ;CONTAINS THE # OF SECONDS TO WAIT. ; WAITNAK PROC NEAR MOV AL,VSEEFLG ;VIEWING? OR AL,AL JNZ L00091 JMP WAITNPR ;PRINT MSG L00091: MOV AL,QFLG ;QUIET.. OR AL,AL ;..MODE? JNZ WAITNPR JMP WAITNLP ;YES, SKIP MSG WAITNPR LABEL NEAR PUSH BX MOV BX,OFFSET MSG13 CALL ILPRT ;PRINT: POP BX WAITNLP LABEL NEAR CALL CKABORT ;ABORT IF LOCAL CTL-X MOV CH,1 ;TIMEOUT DELAY CALL RECV ;DID WE GET.. CMP AL,NAK ;..A NAK? JNZ L00093 RET ;YES, SEND BLOCK ; L00093 LABEL NEAR IF CANFLG CMP AL,CAN ;CTL-X FROM REMOTE? JNZ L00094 JMP ABORT ;..YES, ABORT L00094 LABEL NEAR ENDIF ; DEC DL ;80 TRIES? JNZ L00095 JMP ABORT ;YES, ABORT L00095: JMP WAITNLP ;NO, LOOP WAITNAK ENDP ; ; ;----> PROCOPT: PROCESS COMMAND OPTIONS ; ;1) SAVES THE PRIMARY OPTION IN 'OPTION'; ;2) IF OPTION 'H' (HELP) IS ASKED FOR, ;TRANSFERS DIRECTLY TO THE HELP PRINT; ;3) SCANS THE SUB-OPTION CHARACTERS, AND FOR ;EACH FOUND, ZEROS THE APPROPRIATE ENTRY IN ;THE OPTION TABLE. FOR EXAMPLE, IF 'D' IS ;CODED (DISCONNECT) THEN THE 'D' STORED AT ;'DISCFLG' IS SET TO 0 SO IT CAN BE TESTED ;LATER. ; PROCOPT PROC NEAR MOV DX,OFFSET FCBNAME ;TO PRIMARY OPT. XCHG BX,DX MOV AL,ES:[BX] ;GET PRIMARY OPT. XCHG BX,DX MOV OPTION,AL ;SAVE IT CMP AL,'X' ;MODEM EXAMPLES? JNZ L00096 JMP EXAM ;..YES, GIVE EXAMPLES L00096: CMP AL,'H' ;MODEM H(ELP)? JNZ OPTLP JMP HELP ;..YES, GIVE HELP OPTLP: PUSHF INC DX ;TO SECONDARY OPTION POPF XCHG BX,DX MOV AL,ES:[BX] ;GET CHAR XCHG BX,DX ; ;IF YOU MOD THIS PROGRAM FOR >7 OPTIONS, ;YOU MUST CHANGE THE FOLLOWING, SINCE ;THERE WON'T BE A ' ' AFTER THE OPTION ;IF A BAUD RATE WAS SPECIFIED. ; CMP AL,' ' ;NO MORE OPT'NS? JNZ L00097 JMP ENDOPT ;..YES ;SET THE APPROP. OPT: STORE 0 IN IT L00097: MOV BX,OFFSET OPTBL ;HL = ADDR OF 'OAQDSRV' MOV CX,TABLESIZE ;OPT TABLE LEN OPTCK: CMP AL,BYTE PTR [BX] ;FOUND THE OPTION? JZ L00098 JMP OPTNO ;NO, DON'T SET IT L00098: MOV BYTE PTR [BX],0 ;SET THE OPTION JMP OPTLP ;GET NEXT OPTION OPTNO: PUSHF INC BX POPF ;TO NEXT DEC CX ;MORE? JZ L00099 JMP OPTCK ;OPTION NOT IN TABLE L00099: JMP BADOPT ;SHOW BAD SUB OPTION ; ;IF "VIEW" WAS ASKED FOR, SET QUIET FLAG ; ENDOPT: MOV AL,VSEEFLG ;VIEW.. OR AL,AL ;..ASKED FOR? JZ L00100 RET ;..NO, RET FROM 'PROCOPT' L00100: MOV QFLG,AL ;YES, NO HDR/CKSUM PRT RET ;FROM 'PROCOPT' PROCOPT ENDP ; ;DONE - CLOSE UP SHOP ; DONE PROC NEAR MOV AL,VSEEFLG ;VIEWING? OR AL,AL JNZ L00101 JMP DONETC ;SHOW MSG L00101: MOV AL,QFLG ;QUIET OR AL,AL ;..MODE? JNZ DONETC JMP DONECTE ;YES, CK TERM/ECHO DONETC: PUSH BX MOV BX,OFFSET MSG14 CALL ILPRT POP BX ; ;CHECK IF TERMINAL OR ECHO SUB COMMAND ;WAS SPECIFIED ; DONECTE: MOV AL,TERMFLG ;TERM? OR AL,AL JNZ L00103 JMP TERM ;..YES L00103: MOV AL,ECHOFLG ;ECHO? OR AL,AL JNZ CKDIS JMP TRMECHO ;..YES ; ;FALL INTO 'CKDIS' ; ;----> CKDIS: CHECK IF DISCONNECT REQUESTED ; ;THIS ROUTINE IS JUMPED TO AT THE END OF ;PROCESSING, AND DISCONNECTS THE PHONE IF ;'D' WAS SPECIFIED AS A SUB-OPTION. ; CKDIS: MOV AL,DISCFLG ;CHECK 'D' FLAG OR AL,AL ;REQUESTED? ; x d x ; IF NOT PMMI x e x ; JZ L00106 x l x ; JMP EXIT x e x ;L00106 LABEL NEAR x t x ; ENDIF x e x ; x d x ;AWAIT C/R TO DISC. SO WE DON'T LOSE THE PHONE ; PUSH BX MOV BX,OFFSET MSG15 CALL ILPRT POP BX CALL KEYIN LAHF XCHG AL,AH PUSH AX XCHG AL,AH CALL CRLF POP AX XCHG AL,AH SAHF CMP AL,0DH JZ DISCONN JMP CKDIS ;ASK AGAIN ; ;----> DISCONN: DISCONNECT THE PHONE ; DISCONN LABEL NEAR PUSH BX MOV BX,OFFSET MSG16 CALL ILPRT ;PRINT: POP BX JMP EXIT DONE ENDP ; ;NO DISCONNECT, TYPEZZ MSG AS REMINDER THAT PHONE'S ;ON HOOK ; ; ;----> INITMOD: INITIALIZED THE MODEM ; ;THIS ROUTINE IS USED TO INITIALIZE SERIAL ;PORT USED BY THE PROGRAM. IT INCLUDES SUPPORT FOR ;SELECTING WHICH OF THE THREE UARTS SUPPORTED BY THE IBM/PC ;ARCHITECTURE WILL BE USED FOR THIS TRANSMISSION ; ; ; INITMOD PROC NEAR ; ; ONLY THE "dtr up" PORTION OF THIS MODEM INITIALIZATION, ; [and THE PORT SELECTION] ; IS STATIC -- ALL OTHER PORT SETUP IS DONE EXTERNALLY, OR BY ; THE "I" SECONDARY OPTION - WHICH DEFAULTS THE COMx PORT ; TO 300 baud, 8 bits, 1stop bit, AND n o parity ; ; MOV BX,BASE1U ;POINT TO A UART XOR AX,AX CMP AL,URT3FLG ;IS 3 REQUESTED (flags zeroed if found) JNE INIT1 ;CONTINUE IF NOT MOV BX,BASE3U ;IF YES, POINT TO 3 JMP INIT2 ; AND DO PORT SETUP INIT1: CMP AL,URT2FLG ;IS 2 REQUESTED JNE INIT2 ;DEFAULT TO ONE IF NOT MOV BX,BASE2U ;OR POINT TO TWO AND ; ; DO THE PORT POINTER SETUP ; ; SETUP POINTERS TO THE UART PORTS (SUPPORTS 3) ; INIT2: MOV AX,BX ;BUILD ADD AX,OFFDATP ; MOV MODDATP,AX ; MODDATP MOV AX,BX ;BUILD ADD AX,OFFCTLP ; MOV MODCTLP,AX ;MSR MODCTLP MOV AX,BX ;BUILD ADD AX,OFFCTL2 ; MOV MODCTL2,AX ;MCR MODCTL2 MOV AX,BX ;BUILD ADD AX,OFFCTL3 ; MOV MODCTL3,AX ;LCR MODCTL3 ; ; ; NOW THAT A PORT [COM1 COM2 or COM3] IS SELECTED ; put up dtr FOR POOR FOLKS WITH ; COMMERCIAL MODEMS THAT REQUIRE IT. ; (poor folks, of course, is a relative term) ; ; ; MOV AL,DTREADY ;OUTPUT DTR UP PUSH DX ; REQUEST TO MOV DX,MODCTL2 ;MODEM CONTROL REGISTER OUT DX,AL ; ; ; check for uart init request -- set COMx TO 300,N,8,1 IF 0 ; MOV al,DUMYFLG or al,al jnz noinit push dx mov dx,3fbh mov al,80h out dx,al mov dx,3f9h mov al,01h out dx,al mov dx,3f8h mov al,80h out dx,al mov dx,3fbh mov al,03h out dx,al ; ; the above sequence defaults the modem to 300,n,8,1 .. ; NOINIT: POP DX ;RESTORE DX BEFORE LEAVING RET INITMOD ENDP ; ;----> MOVEFCB: MOVES FCB(2) TO FCB ; ;I ATTEMPTED TO MAKE THE MODEM COMMAND 'NATURAL', ;I.E. MODEM SEND FILENAME (MODEM S FN.FT) RATHER ;THAT MODEM FILENAME SEND (MODEM FN.FT S) SO THIS ;ROUTINE MOVES THE FILENAME FROM THE SECOND FCB ;TO THE FIRST ; MOVEFCB PROC NEAR MOV BX,OFFSET FCB2 ;FROM MOV DX,OFFSET FCB ;TO MOV CH,16 ;LEN PUSH DS ;SAVE DS PUSH ES ;MOVE ES ... POP DS ;... TO DS CALL MOVE ;DO THE MOVE POP DS ;RESTORE DS XOR AL,AL ;GET 0 MOV FCBCR,AL ;ZERO CURRENT RECORD MOV FCBRR,AL ;..AND RANDOM RECORD RET MOVEFCB ENDP ; ;----> SHOW: SHOWS CHAR SENT/RECEIVED ; ;CR, LF, AND TAB ARE SHOWN. ALL OTHER ;NON-PRINTABLE CHARACTERS ARE SHOWN IN ;HEX AS (XX) ; SHOW PROC NEAR CMP AL,LF ;LF? JNZ L00122 JMP CTYPEZZ ;..YES, TYPEZZ IT L00122: CMP AL,CR ;CR? JNZ L00123 JMP CTYPEZZ ;..YES, TYPEZZ IT L00123: CMP AL,09 ;TAB JNZ L00124 JMP CTYPEZZ ;..YES, TYPEZZ IT L00124: CMP AL,' ' ;CTL-CHR? JAE L00125 JMP SHOWHEX ;YES, SHOW IN HEX L00125: CMP AL,7FH ;DEL? JAE SHOWHEX JMP CTYPEZZ ;NO, TYPEZZ THE CHAR SHOWHEX LABEL NEAR LAHF XCHG AL,AH PUSH AX XCHG AL,AH ;SAVE THE CHAR MOV AL,'(' ;TYPEZZ.. CALL CTYPEZZ ;..'(' POP AX XCHG AL,AH SAHF ;THEN.. CALL HEXO ;..THE CHAR MOV AL,')' ;THEN.. JMP CTYPEZZ ;..')' AND RETURN. ; ;----> CTYPEZZ: TYPEZZS VIA CP/M SO TABS ARE EXPANDED ; CTYPEZZ LABEL NEAR PUSH CX ;SAVE.. PUSH DX ;..ALL.. PUSH BX ;..REGS MOV DL,AL ;CHAR TO E MOV CL,WRCON ;GET BDOS FNC CALL BDOS ;PRIN THE CHR POP BX ;RESTORE.. POP DX ;..ALL.. POP CX ;..REGS RET ;FROM "CTYPEZZ" SHOW ENDP ; CRLF PROC NEAR MOV AL,CR CALL TYPEZZ MOV AL,LF CRLF ENDP ; ;----> TYPEZZ: TYPEZZ VIA DIRECT BDOS ACCESS ; ;THIS ROUTINE BYPASSES CP/M'S CTL-S, CTL-C ;TESTS. ; TYPEZZ PROC NEAR LAHF XCHG AL,AH PUSH AX XCHG AL,AH ;SAVE CHAR PUSH CX ;AND B VTYPEZZ LABEL NEAR MOV CL,DCON ;GET BDOS FNC MOV DL,AL CALL BDOS POP CX POP AX XCHG AL,AH SAHF RET ;FROM "TYPEZZ" TYPEZZ ENDP ; ;KEYBOARD STATUS ; ; This routine has been changed from CP/M-86: the service for ; MS-DOS differs in several respects.. [CP/M version uses ; x'FE' in DL and calls "DCON" which isn't supported ; in MSDOS .. SO we use the CONSOLE STATUS service. ; ; STAT PROC NEAR MOV CL,CONST ;GET BDOS FNC ; MOV DL,0FfH ;**Conventions changed from CP/M !!! CALL BDOS OR AL,AL ;0 => NOT READY ; ;AL = FF if char ready: else =00 RET STAT ENDP ; ;KEYBOARD INPUT ; ; This routine should be changed to use direct BIOS interface. ; with the current BDOS call [DCON = 6] the CTRL-BREAK and ; CTRL-C sequences are intercepted and interpreted as ; termination requests ; ; ; KEYIN PROC NEAR MOV CL,DCON ;GET BDOS FNC MOV DL,0FFH CALL BDOS JZ KEYIN ;ZERO FLAG SET IF NO CHARACTER CMP AL,CTLCCHR JNE KEY001 MOV AL,CTLCHAR ret ;return if ctl-c to be sent ; ; SPECIAL FUNCTION KEY SUPPORT ; **ALT-C ==> transmits CTRL-C ; Support will be added here for ; use of ALT-? keyins for shuch things as BAUD rate shift, ; mode changes (quiet/noisy On/Off of R,S,Q secondary optns.) ; ; key001: cmp al,0 je altkey RET ;return if not "00" for special function code altkey: mov cl,dcon ;set bdos function mov dl,0ffh ;ask for character call bdos jz altkey ;spin until second code ; if we got here it should be a special scan code ; cmp al,46 ;replace jne akey01 ; ALT-C mov al,ctlchar ; WITH ret ; CTRL-C AKEY01: CMP AL,59 JNL AKEY02 RET AKEY02: CMP AL,68 JL AKEY03 RET AKEY03: NOP NOP RET KEYIN ENDP ; ;HEX OUTPUT ; HEXO PROC NEAR LAHF XCHG AL,AH PUSH AX XCHG AL,AH ;SAVE FOR RIGHT DIGIT RCR AL,1 ;RIGHT.. RCR AL,1 ;..JUSTIFY.. RCR AL,1 ;..LEFT.. RCR AL,1 ;..DIGIT.. CALL NIBBL ;PRINT LEFT DIGIT POP AX XCHG AL,AH SAHF ;RESTORE RIGHT NIBBL: AND AL,0FH ;ISOLATE DIGIT CMP AL,10 ;IS IS <10? JAE L00127 JMP ISNUM ;YES, NOT ALPHA L00127: ADD AL,7 ;ADD ALPHA BIAS ISNUM: ADD AL,'0' ;MAKE PRINTABLE JMP TYPEZZ ;..THEN TYPEZZ IT HEXO ENDP ; ;----> CKQUIT: QUIT/RETRY AFTER MULTIPLE ERRS. ; ;RETURNS W/ ZERO SET IF "RETRY" ASKED FOR ; CKQUIT PROC NEAR XOR AL,AL ;ZERO.. MOV ERRCT,AL ;..ERROR COUNT PUSH BX MOV BX,OFFSET MSG18 CALL ILPRT ;PRINT: POP BX CALL KEYIN ;QUIT/RETRY LAHF XCHG AL,AH PUSH AX XCHG AL,AH CALL CRLF POP AX XCHG AL,AH SAHF AND AL,5FH ;MAKE UPPER CASE CMP AL,'R' ;RETRY? JNZ L00128 RET ;'KEEP ON TRUCKIN' L00128: CMP AL,'Q' ;QUIT? JZ L00129 JMP CKQUIT ;NO, ASK AGAIN L00129: OR AL,AL ;SET NON-ZERO RET CKQUIT ENDP ; ;----> ILPRT: INLINE PRINT OF MSG ; ;THE CALL TO ILPRT IS FOLLOWED BY A MESSAGE, ;BINARY 0 AS THE END. BINARY 1 MAY BE USED TO ;PAUSE (MESSAGE 'PRESS RETURN TO CONTINUE') ; ILPRT PROC NEAR ILPLP: MOV AL,BYTE PTR[BX] OR AL,AL ;END OF MSG? JNZ L00130 JMP ILPRET ;..YES, RETURN L00130: CMP AL,1 ;PAUSE? JNZ L00131 JMP ILPAUSE ;..YES L00131: CALL CTYPEZZ ;TYPEZZ THE MSG ILPNEXT: PUSHF INC BX POPF ;TO NEXT CHAR JMP ILPLP ;LOOP ; ;PAUSE WHILE TYPING HELP SO INFO DOESN'T ; SCROLL OFF OF VIDEO SCREENS ; ILPAUSE: PUSH BX MOV BX,OFFSET MSG19 CALL ILPRT ;PRINT: POP BX CALL KEYIN ;GET ANY CHAR CMP AL,'C'-40H ;REBOOT? JNZ L09132 ;EXIT IF QUITCHAR JMP EXIT L09132: CMP AL,'I'-40H ;ALT REBOOT? JNZ L00132 ; JMP EXIT ;YES. L00132: JMP ILPNEXT ;LOOP ILPRET: RET ;PAST MSG ILPRT ENDP ; ;----> PRTMSG: PRINTS MSG POINTED TO BY (DE) ; ;A '$' IS THE ENDING DELIMITER FOR THE PRINT. ;NO REGISTERS SAVED. ; PRTMSG PROC NEAR MOV CL,PRINT ;GET BDOS FNC JMP BDOS ;PRINT MESSAGE, RETURN PRTMSG ENDP ; ;----> ERXIT: EXIT PRINTING MSG FOLLOWING CALL ; ERXIT PROC NEAR POP BX ;GET MESSAGE CALL PRTMSG ;PRINT IT CALL CKDIS ;DISCONNECT? JMP EXIT ;RETURN TO PC DOS ERXIT ENDP ; ;MOVE 128 CHARACTERS ; MOVE128 PROC NEAR MOV CH,128 ;SET MOVE COUNT ; ;MOVE FROM (HL) TO (DE) LENGTH IN (B) ; MOVE: MOV AL,BYTE PTR [BX] ;GET A CHAR XCHG BX,DX MOV [BX],AL XCHG BX,DX ;STORE IT PUSHF INC BX POPF ;TO NEXT "FROM" PUSHF INC DX POPF ;TO NEXT "TO" DEC CH ;MORE? JZ L00133 JMP MOVE ;..YES, LOOP L00133: RET ;..NO, RETURN MOVE128 ENDP ; BDOS PROC NEAR PUSH BX PUSH CX PUSH DX MOV AH,CL ;MOVE FNC FOR PC DOS INT 21H ;INVOKE PC DOS SERVICE POP DX POP CX POP BX RET BDOS ENDP ; BADOPT: CALL TYPEZZ PUSH BX MOV BX,OFFSET MSG25 CALL ILPRT POP BX HELP: PUSH BX MOV BX,OFFSET MSG26 CALL ILPRT POP BX JMP copyrt EXAM: PUSH BX MOV BX,OFFSET MSG27 CALL ILPRT POP BX JMP copyrt ; ; Print Limited license with "HELP" request output ; copyrt: CALL STAT ; ; CLEAR THE SCREEN (cursor = 1,1) ; SUB CX,CX ;UPPER LEFT CORNER MOV DX,184FH ;BOTTOM RIGHT CORNER MOV BH,7 ;NORMAL ATTRIB FOR CLS SCROLL ;INVOKE BIOS TO CLEAR SCREEN SUB DX,DX ;POINT TO ROW 1,COL 1 LOCATE ;SET THE CURSOR TO TOP LEFT ; ; PRINT COPYRIGHT NOTICE AND PAUSE ; mov bx,offset msg00 ;point to copyright notice call ilprt ; go print it (PAUSE) ; ; RETURN TO CALLER ; jmp exit ; ; ; MODEM ENDS SUBTTL 'MODIFICATION HISTORY AND CREDITS' PAGE ; ;* * * * * * * * * * * * * * * * * * * * * * * * * ;* * ;* THIS PROGRAM DOCUMENTED IN "MODEM.DOC" * ;* * ;* * * * * * * * * * * * * * * * * * * * * * * * * ;* THIS PROGRAM WAS "MODEM.ASM" BUT and then was * ;* TEMPORARILY NAMED "MODEM2.ASM" SO PEOPLE * ;* WILL REALIZE IT IS AN ENHANCEMENT OF * ;* THE ORIGINAL PROGRAM "MODEM.ASM" ON CP/M * ;* USER'S GROUP DISK 25. * ;* * * * * * * * * * * * * * * * * * * * * * * * * ; ;PLEASE PASS ON MODS, BUGS, ETC, SO YOUR ;FIXES OR ENHANCEMENTS MAY BE SHARED BY ALL, ; ;Please send to the bottom name on the list, ; OR TO ALL OF US - if you can afford ; the time ; ; Ward Christensen ; 688 E. 154th St. #5D ; Dolton, Il. 60419 ; ; (312) 849-6279 ; ;You may send a self-addressed stamped postcard ;to be informed of changes/bugs as they become ;known. [CP/M Version] ; ; ; ; 05/08/82 ;Modified for CP/M 86 and the IBM PC ; by Randy Suess ; 5219 Warwick ; Chicago, Ill 60641 ; 312-545 7535 ; ; 06/03/82 ;Modified for PC DOS and the IBM PC ;by Rick Mallinak ; 22451 Franklin Dr. ; Richton Park, Ill 60471 ; (312) 481-6459 ; ; 08/11/82 ;Repaired for PC DOS 1.1 and IBM PC ;by John Chapman ; 844 S. Madison St. ; Hinsdale Illinois 60521 ; (312) 325-3081 ; CS: 70205,1217 ; ; ; ; -------------------- ; MODIFICATION HISTORY ; -------------------- ; ; 09/23/77 ;ORIGINALLY WRITTEN BY WARD CHRISTENSEN ; ; 04/26/79 ;REWRITTEN BY WARD CHRISTENSEN TO COMBINE ;IMPROVEMENTS TO THE ORIGINAL MADE BY WARD ;AND BY KEITH PETERSEN, W8SDZ, AND SUGGESTIONS ;BY JIM BELL WHICH KEITH IMPLEMENTED. SEE ;MODEM.DOC FOR ADDITIONAL HISTORICAL ;INFORMATION AND DOCUMENSATION. ; ; 05/09/79 ;ALLOW 'T' AND 'E' SUB-OPTIONS TO GO TO TERMINAL ;OR ECHO MODEM AFTER TRANSFERRING A FILE. (WLC) ; ; 05/22/79 ;ADD FEATURE TO MAKE RECEIVE FILE ROUTINE SAY ;FILE SUCCESSFULLY OPENED, WHEN IN QUIET MODE. ;MOVE INITIAL GOBBLE GARBAGE INPUTS TO BEFORE ;COMMAND CPI'S SO ALL MODES ARE CLEARED. CHANGE ;INITIAL SEND WAIT TO 80 SECS TO ALLOW MORE TIME ;FOR RECEIVING END TO COME UP. ADD 'H' AFTER MSG ;THAT SHOWS NUMBER OF SECTORS IN EXTENT ABOUT TO ;BE SENT. (KBP) ; ; 05/24/79 ;FIX MISSING RETURN INSTRUCTION AT END OF ;INITIALIZATION ROUTINE. (KBP) ; ; 07/13/79 ;PUT IN RESET OF DMA ADDR TO 80H AFTER ;FILE RECEIVE, BECAUSE "SUBMIT" UNDER CP/M ;DOESN'T RESET IT BEFORE READING THE ;NEXT SUBMITTED COMMAND. /// ALSO DELETE ;CODE FOR "CANCEL" AS IT'S JUST TOO EASY ;TO INTENTIONALLY GET A CANCEL AS A ;GARBAGED LINE CHARACTER. ; ;; ; 05/82 ; ;Rewitten for CP/M-86 by Randy Suess ; Changes mainly to interface with ; the CP/M-86 BDOS services ; ; 06/82 ; ;Randy's version altered by Rick Mallinak ;to beacceptable to PC/DOS assembler. ;Comments added and changes made to ;support multiple segment version ; ; 08/82 ********CURRENT VERSION*********** ; ;Rick's PC/DOS version reworked ;to: a) RUn as a .COM file by ;returning to single segment image; ;b)terminal bugs repaired,; c) code ;added to 'bring up' DTR as program ;starts up [necessary for non-autodial ;commercial modems]; and c) both ;source and execution time messages ;added to prevent Resale or Commmercial ;use of this program. ; ; ; END MAIN